home *** CD-ROM | disk | FTP | other *** search
- inherited frmWaitForPixel: TfrmWaitForPixel
- Left = 666
- Top = 168
- HelpContext = 109
- OldCreateOrder = True
- OnClose = FormClose
- OnKeyUp = edtXPosKeyUp
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- inherited pnlTop: TPanel
- inherited lblCommandName: TLabel
- Caption = ''
- end
- inherited memActionDesc: TMemo
- Lines.Strings = (
-
- 'Causes task execution to pause at the current line until the spe' +
- 'cfied pixels match '
- 'or differ from the color values specified.')
- end
- end
- inherited pnlCenter: TPanel
- inherited pgcControlPage: TPageControl
- inherited tbsAM5Main: TTabSheet
- object Label1: TLabel
- Left = 10
- Top = 110
- Width = 92
- Height = 13
- Caption = '&Pixel(s) to wait for:'
- FocusControl = tslItems
- end
- object Label7: TLabel
- Left = 10
- Top = 79
- Width = 313
- Height = 27
- AutoSize = False
- Caption =
- 'Current pixel location and color (Press the insert key to captur' +
- 'e):'
- WordWrap = True
- end
- object lblCoordinates: TLabel
- Left = 355
- Top = 79
- Width = 16
- Height = 13
- Caption = '1,1'
- end
- object GroupBox1: TGroupBox
- Left = 10
- Top = 2
- Width = 449
- Height = 71
- Caption = 'Action'
- TabOrder = 0
- object rdoAppear: TRadioButton
- Left = 10
- Top = 16
- Width = 401
- Height = 17
- Caption = 'Wait for pixel(s) to &match'
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = rdoAppearClick
- OnKeyUp = edtXPosKeyUp
- end
- object rdoDisappear: TRadioButton
- Left = 10
- Top = 32
- Width = 401
- Height = 17
- Caption = 'Wait for pixel(s) to &differ from'
- TabOrder = 1
- OnClick = rdoAppearClick
- OnKeyUp = edtXPosKeyUp
- end
- object rdoAny: TRadioButton
- Left = 10
- Top = 48
- Width = 401
- Height = 17
- Caption = 'Wait for pixel(s) to &change to any color'
- TabOrder = 2
- OnClick = rdoAppearClick
- OnKeyUp = edtXPosKeyUp
- end
- end
- object tslItems: TListView
- Left = 10
- Top = 126
- Width = 364
- Height = 63
- Columns = <
- item
- Caption = 'X position'
- Width = 100
- end
- item
- Caption = 'Y position'
- Width = 100
- end
- item
- Caption = 'Color'
- Width = 150
- end>
- ColumnClick = False
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = popMenu
- TabOrder = 1
- ViewStyle = vsReport
- OnChange = tslItemsChange
- OnDblClick = comEditClick
- OnKeyDown = tslItemsKeyDown
- OnMouseDown = tslItemsMouseDown
- end
- object comNew: TButton
- Left = 384
- Top = 126
- Width = 75
- Height = 20
- Caption = '&Add...'
- TabOrder = 2
- OnClick = comNewClick
- OnKeyUp = edtXPosKeyUp
- end
- object comEdit: TButton
- Left = 384
- Top = 150
- Width = 75
- Height = 20
- Caption = 'Ed&it...'
- TabOrder = 3
- OnClick = comEditClick
- OnKeyUp = edtXPosKeyUp
- end
- object comDelete: TButton
- Left = 384
- Top = 174
- Width = 75
- Height = 20
- Caption = 'Dele&te'
- TabOrder = 4
- OnClick = comDeleteClick
- OnKeyUp = edtXPosKeyUp
- end
- object rdoAbsolute: TRadioButton
- Left = 10
- Top = 209
- Width = 431
- Height = 13
- Caption = 'Coordinates relative to &screen'
- TabOrder = 6
- OnKeyUp = edtXPosKeyUp
- end
- object rdoRelative: TRadioButton
- Left = 10
- Top = 192
- Width = 355
- Height = 13
- Caption = 'Coordinates relative to &foreground window'
- Checked = True
- TabOrder = 5
- TabStop = True
- OnKeyUp = edtXPosKeyUp
- end
- end
- end
- end
- inherited taclKeyboardTrap: TActionList
- Left = 172
- end
- inherited dxSIBarManager: TdxBarManager
- Categories.ItemsVisibles = (
- 2)
- Categories.Visibles = (
- True)
- PopupMenuLinks = <
- item
- Control = lsvAM5Errors
- PopupMenu = dxCheckPopup
- end>
- DockControlHeights = (
- 0
- 0
- 0
- 0)
- end
- inherited dxCheckPopup: TdxBarPopupMenu
- ItemLinks = <
- item
- Item = itmCheckAllErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end
- item
- Item = itmCheckNoErrors
- UserGlyph.Data = {00000000}
- Visible = True
- end>
- end
- inherited IvTranslator1: TIvTranslator
- Left = 232
- Top = 348
- end
- object popMenu: TPopupMenu
- Left = 201
- Top = 348
- object Add1: TMenuItem
- Caption = 'Add...'
- OnClick = comNewClick
- end
- object Edit1: TMenuItem
- Caption = 'Edit...'
- OnClick = comEditClick
- end
- object Delete1: TMenuItem
- Caption = 'Delete'
- OnClick = comDeleteClick
- end
- end
- end
-